//===== eAthena Script ======================================= 
//= Poring Maniac Quest - POPORING HAT
//===== by: ================================================== 
//= Rehael
//= v1.0

prontera,182,167,4	script	Poring Maniac	945,{
 	set .@NPCName$, "[^66FF33Poring Maniac^000000]";
	set .@cost, 100000;

	mes .@NPCName$;
	mes "......*Glares*.....";
	mes "What are you looking at? ...";
	mes "*He seems weird*";
	mes "Hey, do you like porings? if so, I could make you a ^0000FFpoporing hat^000000!!";
	next;
	mes .@NPCName$;
	mes "*He looks excited about it*";
	next;
	mes .@NPCName$;
	mes "So you want the poporing hat?";
	next;
	switch(select("Ok, here we go:Nah,I'm not into porings:Cancel"))
	{
 		case 1:
			mes .@NPCName$;
			mes "Get me this stuff :";
			mes " 1 ^0000FFPoring Hat^000000 ";
			mes " 2 ^0000FFDarkgreen Dyestuff^000000 ";
			mes "  ^0000FF100,000 Zeny^000000";
			next;
			if( countitem(5035) < 1 || countitem(979) < 2 || Zeny < .@cost )
			{
				mes .@NPCName$;
				mes "Get me all the stuff.";
				close;
			}
			mes .@NPCName$;
			mes "Good! You have all the Items!";
			mes "Here we go !";
			delitem 5035,1;
			delitem 979,2;
			set Zeny,Zeny-.@cost;
			getitem 5352,2;
			close;
		case 2:
			mes .@NPCName$;
			mes "Ok, come back if you decided that porings are sexy.";
			close;
		case 3:
			close;
	}

}

//============================================================
//===== Quest by Reha-chan :D ===========================
//============================================================